USER FUNCTION mCriarTab

dbselectarea("ZZ1")
dbclosearea("ZZ1")

dbselectarea("ZZ2")
dbclosearea("ZZ2")

dbselectarea("ZZ3")
dbclosearea("ZZ3")

dbselectarea("ZZ4")
dbclosearea("ZZ4")

dbselectarea("ZZ5")
dbclosearea("ZZ5")

dbselectarea("ZZ6")
dbclosearea("ZZ6")

dbselectarea("ZZ7")
dbclosearea("ZZ7")

dbselectarea("ZZ8")
dbclosearea("ZZ8")

dbselectarea("ZZ9")
dbclosearea("ZZ9")

dbselectarea("ZZP")
dbclosearea("ZZP")

RETURN